home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / Mops 3.4.sea / Mops source / Module source / AlertQmod.txt next >
Text File  |  1999-01-18  |  384b  |  20 lines
  1. \ More Mac-like alternative to abort"
  2. \  May 90  Mops version.  Resource based.
  3.  
  4. need dialog
  5. need alert
  6.  
  7.     3    alert    ALRT
  8.  
  9. cfas{ null null null }  900  init: alrt
  10.  
  11. variable NUMSTR  10 allot
  12.  
  13. : (AL) { RC type addr len -- }
  14.     RC  0EXIT
  15.     numStr 14 blanks
  16.     RC dup abs 0 <# #s sign #>  numStr  swap 14 min cmove
  17.     addr len  numStr 14  0 0  0 0  paramText
  18.     type setType: alrt  show: alrt  
  19. ;
  20.